/*
 *  linux/fs/fcntl.c
 *
 *  (C) 1991  Linus Torvalds
 */

#include <string.h>
#include <errno.h>
#include <linux/sched.h>
#include <linux/kernel.h>
#include <asm/segment.h>

#include <fcntl.h>
#include <sys/stat.h>

// 关闭文件系统调用。 (fs/open.c, 219)
extern int sys_close(int fd);

//// 复制文件句柄（文件描述符）。
// 参数 fd 是欲复制的文件句柄， arg 指定新文件句柄的最小数值。
// 返回新文件句柄或出错码。

static int dupfd(unsigned int fd, unsigned int arg)
{
	if (fd >= NR_OPEN || !current->filp[fd])
		return -EBADF;
	if (arg >= NR_OPEN)
		return -EINVAL;
	while (arg < NR_OPEN)
		if (current->filp[arg])
			arg++;
		else
			break;
	if (arg >= NR_OPEN)
		return -EMFILE;
	current->close_on_exec &= ~(1<<arg);
	(current->filp[arg] = current->filp[fd])->f_count++;
	return arg;
}

//// 复制文件句柄系统调用。
// 复制指定文件句柄 oldfd，新文件句柄值等于 newfd。如果 newfd 已打开，则首先关闭之。
// 参数： oldfd -- 原文件句柄； newfd - 新文件句柄。
// 返回新文件句柄值。

int sys_dup2(unsigned int oldfd, unsigned int newfd)
{
	sys_close(newfd);
	return dupfd(oldfd,newfd);
}

//// 复制文件句柄系统调用。
// 复制指定文件句柄 oldfd，新句柄的值是当前最小的未用句柄值。
// 参数： fildes -- 被复制的文件句柄。
// 返回新文件句柄值。

int sys_dup(unsigned int fildes)
{
	return dupfd(fildes,0);
}

//// 文件控制系统调用函数。
// 参数 fd 是文件句柄； cmd 是控制命令（参见 include/fcntl.h， 23-30 行）； 
// arg 则针对不同的命令有不同的含义。
// 对于复制句柄命令 F_DUPFD， arg 是新文件句柄可取的最小值；
// 对于设置文件操作和访问标志命令 F_SETFL， arg 是新的文件操作和访问模式。
// 对于文件上锁命令 F_GETLK、 F_SETLK 和 F_SETLKW， arg 是指向 flock 结构的指针。
// 但本内核中没有实现文件上锁功能。
//
// 返回：若出错，则所有操作都返回-1。若成功，那么 F_DUPFD 返回新文件句柄； F_GETFD
// 返回文件句柄的当前执行时关闭标志 close_on_exec； F_GETFL 返回文件操作和访问标志。

int sys_fcntl(unsigned int fd, unsigned int cmd, unsigned long arg)
{	
	struct file * filp;

	if (fd >= NR_OPEN || !(filp = current->filp[fd]))
		return -EBADF;
	switch (cmd) {
		case F_DUPFD:
			return dupfd(fd,arg);
		case F_GETFD:
			return (current->close_on_exec>>fd)&1;
		case F_SETFD:
			if (arg&1)
				current->close_on_exec |= (1<<fd);
			else
				current->close_on_exec &= ~(1<<fd);
			return 0;
		case F_GETFL:
			return filp->f_flags;
		case F_SETFL:
			filp->f_flags &= ~(O_APPEND | O_NONBLOCK);
			filp->f_flags |= arg & (O_APPEND | O_NONBLOCK);
			return 0;
		case F_GETLK:	case F_SETLK:	case F_SETLKW:
			return -1;
		default:
			return -1;
	}
}
